home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / BUDGET-V2.SDA / BUDGET V.2 (.txt) next >
Commodore BASIC  |  2019-04-13  |  10KB  |  356 lines
  1. 5 REM"          BUDGET V.2
  2. 10 [143]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  3. 15 REM"[221]THIS PROGRAM IS OFFERED TO[221]            [221]PUBLIC DOMAIN - MARCH 1987[221]
  4. 20 [143]"(null)  ROBERT A. LEDUC         (null)            (null)  61 WARREN AVENUE        (null)
  5. 25 REM"[221]  LEWISTON, MAINE 04240   [221]            [221]       ENJOY :)           [221]
  6. 26 [143]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  7. 30 PRINT"[147][155]":POKE53280,0:POKE53281,0
  8. 35 CT=0:CN=0:N=0:LM=0:NU=0
  9. 40 K$="":M$="":L$=""
  10. 45 N2=0:LN=0:BA=170
  11. 50 DIMT(40,2),C$(40),D(12,2)
  12. 55 FORN=1TO23:READQ:F=F+Q:NEXT
  13. 60 FORN=1TO40:READQ$:C$(N)=Q$:NEXT
  14. 65 GOTO160
  15. 70 PRINT"[147]":FORN=1TO20:IFN<10THENPRINT" ";
  16. 75 PRINT""N"[146][155]";LEFT$(C$(N),15);TAB(21)""N+20"[146][155]";LEFT$(C$(N+20),14)
  17. 80 NEXTN:RETURN
  18. 85 PRINT"[155][147]LOADING ACCOUNT ";RIGHT$(D$,4)
  19. 90 PRINT"PLEASE WAIT..."
  20. 95 OPEN15,8,15
  21. 100 GOSUB1440
  22. 105 OPEN2,8,2,"BUDGET DATA "+RIGHT$(D$,2)+",S,R"
  23. 110 FORN=1TO40:INPUT#2,T(N,1):NEXT:GOSUB1440
  24. 115 FORN=1TO40:INPUT#2,T(N,2):NEXT:GOSUB1440
  25. 120 FORN=1TO12:INPUT#2,D(N,1):NEXT:GOSUB1440
  26. 125 FORN=1TO12:INPUT#2,D(N,2):NEXT:GOSUB1440
  27. 130 CLOSE2:CLOSE15:GOTO175
  28. 135 PRINT"[155][147]":PRINTTAB(13)D$;"":PRINT"BUDGET V.2"
  29. 140 PRINT"IS THIS DATE CORRECT?  (Y/N)"
  30. 145 GETA$:IF A$=""THEN145
  31. 150 IF A$="Y"THEN175
  32. 155 IF A$<>"N"THEN145
  33. 160 PRINT"[147]ENTER NEW DATE  00/00/0000"
  34. 165 INPUT"   ";D$
  35. 170 IFLEN(D$)<>10THEN160
  36. 175 PRINT"[147]";:PRINTTAB(14);"[213][178][192][192][192][192][192][192][192][192][192][178][201]"
  37. 180 PRINTTAB(3)"[155]BUDGET V.2 [221][221]MAIN MENU[221][221]";:PRINTTAB(28)"[146][155]"D$""
  38. 185 PRINTTAB(14);"[202][177][192][192][192][192][192][192][192][192][192][177][203][155]"
  39. 190 PRINTTAB(10)"POSTING[155]",,,,,,,
  40. 195 PRINTTAB(5)" 1 = BUDGET POSTING"
  41. 200 PRINTTAB(5)" 2 = AUTO-DEPOSIT",,,,,,
  42. 205 PRINTTAB(10)"REPORTS[155]",,,,,,,:PRINTTAB(5)" 3 = BALANCE REPORT"
  43. 210 PRINTTAB(6)"     [158] F1 [146][155]--->PRINTER[155]"
  44. 215 PRINTTAB(5)" 4 = OTHER REPORTS",,,,,,:PRINTTAB(8)"  MAINTENANCE[155]",,,,,,
  45. 220 PRINTTAB(5)" 5 = DATE CHANGE"
  46. 225 PRINTTAB(5)" 6 = LOAD DATA FROM DISK"
  47. 230 PRINTTAB(5)" 7 = SAVE DATA TO DISK"
  48. 235 PRINTTAB(6)"8 = EDIT MODE CAUTION-END PRG[155]"
  49. 240 PRINTTAB(5)" 9 = ZERO ACCOUNTS",,,,,,
  50. 245 PRINT"        PRESS # KEY DESIRED"
  51. 250 A$=""
  52. 255 PRINT"[145]        PRESS # KEY DESIRED "
  53. 260 GETA$:IFA$=""THENPRINT"[145][145]":GOTO245
  54. 265 IF(VAL(A$)<1ORVAL(A$)>9)AND(A$<>"[133]")THEN260
  55. 270 PRINT"[155]";
  56. 275 IFA$="[133]"THEN615
  57. 280 ONVAL(A$)GOTO285,545,615,1010,135,1685,1710,1595,1605
  58. 285 PRINT"[147]";"POSTING"
  59. 290 GOSUB70
  60. 295 P$=""
  61. 300 PRINT:INPUT"# OF ACCOUNT FOR POSTING";P$
  62. 305 IFP$=""THEN175
  63. 310 N=VAL(P$)
  64. 315 PRINT"[147]POSTING TO ACCOUNT #";N
  65. 320 NU=T(N,1):K$="XX,XXX.XX-":GOSUB1465
  66. 325 PRINT:PRINTC$(N):PRINT:PRINT"INCOME  ";SPC(2);K$
  67. 330 NU=T(N,2):K$="XX,XXX.XX-":GOSUB1465
  68. 335 PRINT"EXPENSE ";SPC(2);K$
  69. 340 NU=INT(T(N,1)-T(N,2)):K$="XX,XXX.XX-":GOSUB1465
  70. 345 PRINT"BALANCE ";SPC(2);K$
  71. 350 PRINT:PRINT"   +  [146][155]=INCREASE INCOME":PRINT"   -  [146][155]=INCREASE EXPENSE"
  72. 355 PRINT" RET=RETURN TO MENU"
  73. 360 GETA$:IFA$=""THEN360
  74. 365 IFA$="+"THEN385
  75. 370 IFA$="-"THEN465
  76. 375 IFA$=""THEN290
  77. 380 GOTO290
  78. 385 PRINT:INPUT"AMOUNT TO INCREASE INCOME[155]";I
  79. 390 NU=T(N,1)+I:K$="XX,XXX.XX-":GOSUB1465
  80. 395 PRINT:PRINT"INCOME  ";K$
  81. 400 NU=T(N,2):K$="XX,XXX.XX-":GOSUB1465
  82. 405 PRINT"EXPENSE ";K$
  83. 410 NU=INT(T(N,1)-T(N,2)+I):K$="XX,XXX.XX-":GOSUB1465
  84. 415 PRINT"        [197][197][197][197][197][197][197][197][197][197]"
  85. 420 PRINT"BALANCE ";K$
  86. 425 PRINT"CORRECT Y/N?"
  87. 430 GETA$:IFA$=""THEN430
  88. 435 IFA$="N"THEN315
  89. 440 IFA$<>"Y"THEN430
  90. 445 T(N,1)=INT(T(N,1)+I)
  91. 450 IFN>24THENT(24,1)=INT(T(24,1)+I)
  92. 455 D(VAL(LEFT$(D$,2)),1)=INT(D(VAL(LEFT$(D$,2)),1)+I)
  93. 460 GOTO315
  94. 465 PRINT:INPUT"AMOUNT TO INCREASE EXPENSE[155]";I
  95. 470 NU=T(N,1):K$="XX,XXX.XX-":GOSUB1465
  96. 475 PRINT:PRINT"INCOME  ";K$
  97. 480 NU=T(N,2)+I:K$="XX,XXX.XX-":GOSUB1465
  98. 485 PRINT"EXPENSE ";K$
  99. 490 NU=INT(T(N,1)-(T(N,2)+I)):K$="XX,XXX.XX-":GOSUB1465
  100. 495 PRINT"        [197][197][197][197][197][197][197][197][197][197]"
  101. 500 PRINT"BALANCE ";K$
  102. 505 PRINT"CORRECT Y/N?"
  103. 510 GETA$:IFA$=""THEN510
  104. 515 IFA$="N"THEN315
  105. 520 IFA$<>"Y"THEN510
  106. 525 T(N,2)=INT(T(N,2)+I)
  107. 530 IFN>24THENT(24,2)=INT(T(24,2)+I)
  108. 535 D(VAL(LEFT$(D$,2)),2)=INT(D(VAL(LEFT$(D$,2)),2)+I)
  109. 540 GOTO315
  110. 545 PRINT"[147]";"AUTO-DEPOSIT"
  111. 550 NU=F:K$="XX,XXX.XX-":GOSUB1465
  112. 555 PRINTTAB(200)"ENTER DEPOSIT AMOUNT"
  113. 560 PRINT"***[155]DO NOT USE DECIMAL POINT***[155]"
  114. 565 PRINT"MUST BE AT LEAST $";K$;:INPUTDP$:IFDP$=""THEN175
  115. 570 DP=VAL(DP$)
  116. 575 B=0
  117. 580 RESTORE
  118. 585 FORN=1TO23:READQ:B=B+Q:T(N,1)=INT(T(N,1)+Q)
  119. 590 D(VAL(LEFT$(D$,2)),1)=INT(D(VAL(LEFT$(D$,2)),1)+Q):NEXT
  120. 595 D(VAL(LEFT$(D$,2)),1)=INT((D(VAL(LEFT$(D$,2)),1)+DP)-F)
  121. 600 T(24,1)=INT((T(24,1)+DP)-F)
  122. 605 T(25,1)=INT((T(25,1)+DP)-F)
  123. 610 GOTO175
  124. 615 PRINT"[147]";
  125. 620 RESTORE
  126. 625 BA=0
  127. 630 IFA$="[133]"THEN750
  128. 635 FORN=1TO24:BA=BA+INT((T(N,1)-T(N,2)))
  129. 640 IFN<10THENPRINT" ";
  130. 645 PRINTN;:PRINTLEFT$(C$(N),15);
  131. 650 IFN<24THENREADA:PRINTTAB(19)A/100;
  132. 655 NU=INT(T(N,1)-T(N,2)):K$="XX,XXX.XX-":GOSUB1465
  133. 660 PRINTTAB(24)K$
  134. 665 NEXT
  135. 670 GETA$:IFA$=""THEN670
  136. 675 IFA$="P"THENGOSUB1465
  137. 680 PRINT"[147]";
  138. 685 NU=INT(BA):K$="XX,XXX.XX-":GOSUB1465
  139. 690 PRINT"$"K$;" IS YOUR TOTAL FOR CHECKBOOK."
  140. 695 BA=0:PRINT:FORN=24TO40:PRINTN;LEFT$(C$(N),13);
  141. 700 NU=INT(T(N,1)-T(N,2)):K$="XX,XXX.XX-":GOSUB1465
  142. 705 IFN=24THENPRINTTAB(30)K$:MB$=K$
  143. 710 IFN>24THENPRINTTAB(20)K$
  144. 715 IFN>24THENBA=BA+INT((T(N,1)-T(N,2)))
  145. 720 NEXT
  146. 725 PRINT
  147. 730 NU=INT(BA):K$="XX,XXX.XX-":GOSUB1465
  148. 735 PRINTTAB(20)K$;:PRINTTAB(30)MB$:MB$=""
  149. 740 GETA$:IFA$=""THEN740
  150. 745 GOTO175
  151. 750 P=0:OPEN3,4
  152. 755 PRINT#3:IFNOTPEEK(144)AND128THENCLOSE3:GOTO780
  153. 760 PRINT"  ***[155] PLEASE TURN THE PRINTER ON ***[155]":P=P+1
  154. 765 IFP>799THENCLOSE3:GOTO175
  155. 770 GOTO755
  156. 775 P=0
  157. 780 OPEN3,4
  158. 785 T5$=CHR$(16)+"05"
  159. 790 BB=0:BC=0
  160. 795 PRINT"PRINTING..."
  161. 800 PRINT#3,CHR$(14);
  162. 805 PRINT#3,SPC(16)"BALANCES";CHR$(15)
  163. 810 PRINT#3:PRINT#3
  164. 815 PRINT#3,SPC(35)D$;CHR$(13);CHR$(13)
  165. 820 T1$=CHR$(16)+"35"
  166. 825 T2$=CHR$(16)+"48"
  167. 830 T3$=CHR$(16)+"65"
  168. 835 T4$=CHR$(16)+"24"
  169. 840 PRINT#3,"ACCOUNT";T4$;"AMT";T1$;"  BALANCE";
  170. 845 PRINT#3,T2$;"   INCOME";T3$;" EXPENSES"
  171. 850 FORN=1TO24:BA=BA+(T(N,1)-T(N,2)):BB=INT(BB+T(N,1)):BC=INT(BC+T(N,2))
  172. 855 PRINT#3,T5$;LEFT$(C$(N),15);
  173. 860 IFN<24THENREADA:PRINT#3,T4$;A/100;
  174. 865 NU=INT(T(N,1)-T(N,2)):K$="XX,XXX.XX-":GOSUB1465
  175. 870 PRINT#3,T1$;K$;:NU=INT(T(N,1)):K$="XX,XXX.XX-":GOSUB1465
  176. 875 PRINT#3,T2$;K$;:NU=INT(T(N,2)):K$="XX,XXX.XX-":GOSUB1465
  177. 880 PRINT#3,T3$;K$
  178. 885 NEXT:PRINT#3
  179. 890 NU=BA:K$="XX,XXX.XX-":GOSUB1465
  180. 895 PRINT#3,CHR$(14);T5$;"TOTALS =";CHR$(15);T1$;K$;
  181. 900 NU=BB:K$="XX,XXX.XX-":GOSUB1465
  182. 905 PRINT#3,T2$;K$;
  183. 910 NU=BC:K$="XX,XXX.XX-":GOSUB1465
  184. 915 PRINT#3,T3$;K$
  185. 920 PRINT#3
  186. 925 NU=BA:K$="XX,XXX.XX-":GOSUB1465
  187. 930 PRINT#3,T5$;CHR$(14);"CHECKBOOK TOTAL = $"K$;CHR$(15)
  188. 935 BA=0:PRINT#3,:FORN=24TO40:PRINT#3,LEFT$(C$(N),15);
  189. 940 IFN=24THENNU=INT(T(N,1)-T(N,2)):K$="XX,XXX.XX-":GOSUB1465
  190. 945 IFN=24THENPRINT#3,T1$;" "LEFT$(K$,9)
  191. 950 IFN>24THENNU=T(N,2):K$="XX,XXX.XX-":GOSUB1465
  192. 955 IFN>24THENPRINT#3,T4$;K$
  193. 960 IFN>24THENBA=INT(BA+T(N,2))
  194. 965 NEXT
  195. 970 PRINT#3:PRINT#3,CHR$(14);"TOTALS";CHR$(15);
  196. 975 NU=BA:K$="XX,XXX.XX-":GOSUB1465
  197. 980 PRINT#3,T4$;" ";K$;
  198. 985 NU=INT(T(24,1)-T(24,2)):K$="XX,XXX.XX-":GOSUB1465
  199. 990 PRINT#3,T1$;" "LEFT$(K$,9)
  200. 995 PRINT#3,CHR$(12)
  201. 1000 CLOSE3
  202. 1005 GOTO175
  203. 1010 BA=0:BE=0:PRINT"[147]OTHER REPORTS"
  204. 1015 PRINT"[158] 1 [155][146]= SPREADSHEET":PRINT"[158] 2 [155][146]= MONTHLY GRAPHIC EXPENSE/INCOME"
  205. 1020 PRINT"[158] 3 [155][146]= WEEKLY GRAPHIC EXPENSE"
  206. 1025 PRINT"[158]RET[155][146]= MAIN MENU"
  207. 1030 GETA$:IFA$=""THEN1030
  208. 1035 IFA$=CHR$(13)THEN175
  209. 1040 IFVAL(A$)<1ORVAL(A$)>3THEN1030
  210. 1045 ONVAL(A$)GOTO1050,1195,1290
  211. 1050 PRINT"[147]";
  212. 1055 FORN=1TO24
  213. 1060 IFN<10THENPRINT" ";
  214. 1065 NU=T(N,1):K$="XX,XXX.XX-":GOSUB1465
  215. 1070 PRINTN;LEFT$(C$(N),13);TAB(18);K$;
  216. 1075 NU=T(N,2):K$="XX,XXX.XX-":GOSUB1465
  217. 1080 PRINTTAB(29)K$
  218. 1085 BA=INT(BA+T(N,1)):BE=INT(BE+T(N,2))
  219. 1090 NEXT
  220. 1095 NU=BA:K$="XX,XXX.XX-":GOSUB1465
  221. 1100 PRINTTAB(18);K$;
  222. 1105 NU=BE:K$="XX,XXX.XX-":GOSUB1465
  223. 1110 PRINTTAB(29);K$;
  224. 1115 GETA$:IFA$=""THEN1115
  225. 1120 PRINT"[147]";
  226. 1125 BA=0:BE=0:PRINT
  227. 1130 FORN=25TO40
  228. 1135 NU=T(N,1):K$="XX,XXX.XX-":GOSUB1465
  229. 1140 PRINTN;LEFT$(C$(N),13);TAB(18);K$;
  230. 1145 NU=T(N,2):K$="XX,XXX.XX-":GOSUB1465
  231. 1150 PRINTTAB(29);K$
  232. 1155 BA=BA+T(N,1):BE=BE+T(N,2)
  233. 1160 NEXT
  234. 1165 NU=BA:K$="XX,XXX.XX-":GOSUB1465
  235. 1170 PRINT:PRINTTAB(18);K$;
  236. 1175 NU=BE:K$="XX,XXX.XX-":GOSUB1465
  237. 1180 PRINTTAB(29);K$
  238. 1185 GETA$:IFA$=""THEN1185
  239. 1190 GOTO175
  240. 1195 PRINT"[147]MONTHLY[157][157][157][157][157][157][157][150]EXPENSE   [146][157][157][157][157][157][157][157][157][157][157]INCOME   [146][155]"
  241. 1200 PRINTTAB(2)"INC   EXP"
  242. 1205 PRINT"J[157]F[157]M[157]A[157]M[157]J[157]J[157]A[157]S[157]O[157]N[157]D"
  243. 1210 PRINTTAB(15)"JAFB[146]MRAP[146]MYJN[146]JLAU[146]SPOC[146]NVDC"
  244. 1215 PRINT""TAB(15)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  245. 1220 FORN=1TO20:PRINTTAB(15)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":NEXT
  246. 1225 PRINT"":MAX=0:MIX=0
  247. 1230 FORN=1TO12:IFMAX<D(N,2)THENMAX=D(N,2)
  248. 1235 IFMIX<D(N,1)THENMIX=D(N,1)
  249. 1240 NEXT:IFMIX>MAXTHENMAX=MIX
  250. 1245 IFMA<=0THENPRINT"NO DATA AVAILABLE[155]";:GOTO1280
  251. 1250 FORN=1TO12:AV=(20/MAX)*D(N,1):X=ABS(INT(800/20*INT(AV))-800)+1184
  252. 1255 A1=(20/MAX)*D(N,2):X1=ABS(INT(800/20*INT(A1))-800)+1184
  253. 1260 PRINTTAB(2)INT(D(N,1)/100);TAB(8)INT(D(N,2)/100)
  254. 1265 FORI=1944TOXSTEP-40:POKEI+(N*2)-27,229:POKEI+(N*2)-27+54272,5:NEXT
  255. 1270 FORI=1944TOX1STEP-40:POKEI+(N*2)-27+1,231:POKEI+(N*2)-27+54272+1,10:NEXT
  256. 1275 NEXT
  257. 1280 GETA$:IFA$=""THEN1280
  258. 1285 GOTO175
  259. 1290 PRINT"[147]WHAT FACTOR ?  ( 1 THRU 9 )
  260. 1295 [161]O$:[139]O$[178]""[167]1295
  261. 1300 O[178][197](O$):[139]O[179]1[176]O[177]9[167]1295
  262. 1305 [153]"LOAD FACTOR ="O:[153]"WEEKLYEXPENSE"
  263. 1310 [153]"
  264. 1315 PRINT"      12345678901234567890123          "
  265. 1320 PRINT""TAB(5)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  266. 1325 FORN=1TO19:PRINTTAB(5)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  267. 1330 NEXT
  268. 1335 PRINT""
  269. 1340 MAX=0
  270. 1345 FORN=1TO23:IFMAX<INT(T(N,2)/100)THENMAX=INT(T(N,2)/100)
  271. 1350 NEXT:IFMAX<=0THENPRINT"NO EXPENSE DATA":GOTO1380
  272. 1355 MAX=INT(MAX/O)
  273. 1360 FORN=1TO23:X=1909-INT(720*(T(N,2)/100)/MAX):IFX<1184THENX=1184:X9=1
  274. 1365 FORI=1909TOXSTEP-40:POKE(I+N),229:POKE(I+N)+54272,10
  275. 1370 IFX9=1ANDI<1222THENPOKE(I+N),158
  276. 1375 NEXT:X9=0:NEXT
  277. 1380 GETA$:IFA$=""THEN1380
  278. 1385 GOTO175
  279. 1390 PRINT"[155][147]SAVING ACCOUNT ";RIGHT$(D$,4)
  280. 1395 PRINT"PLEASE WAIT..."
  281. 1400 OPEN15,8,15,"I"
  282. 1405 GOSUB1440
  283. 1410 PRINT#15,"S:BUDGET DATA "+RIGHT$(D$,2)
  284. 1415 OPEN2,8,2,"0:BUDGET DATA "+RIGHT$(D$,2)+",S,W"
  285. 1420 FORN=1TO40:PRINT#2,T(N,1);CHR$(13):NEXT:GOSUB1440
  286. 1425 FORN=1TO40:PRINT#2,T(N,2);CHR$(13):NEXT:GOSUB1440
  287. 1430 FORN=1TO12:PRINT#2,D(N,1);CHR$(13):NEXT:GOSUB1440
  288. 1435 FORN=1TO12:PRINT#2,D(N,2);CHR$(13):NEXT:GOSUB1440:CLOSE2:CLOSE15:GOTO175
  289. 1440 INPUT#15,EN,EM$,ET,ES
  290. 1445 IFEN=0THENRETURN
  291. 1450 PRINT"    ERROR ON DISK    "
  292. 1455 PRINTEN;EM$;ET;ES
  293. 1460 CLOSE2:CLOSE15:GOTO1450
  294. 1465 REM MA ROUTINE
  295. 1470 N2=NU:NU=ABS(NU):LM=LEN(K$):L$=STR$(NU)
  296. 1475 LNU=LEN(L$):CN=LNU+1
  297. 1480 FORCT=LMTO1STEP-1:CN=CN-1
  298. 1485 IFCN<2THEN1575
  299. 1490 IFMID$(K$,CT,1)<>"-"THEN1530
  300. 1495 IFN2=>0THEN1515
  301. 1500 K$=MID$(K$,1,CT-1)+"-"
  302. 1505 CN=CN+1
  303. 1510 GOTO1525
  304. 1515 K$=MID$(K$,1,CT-1)+" "
  305. 1520 CN=CN+1
  306. 1525 GOTO1580
  307. 1530 IFMID$(K$,CT,1)=","THEN1545
  308. 1535 IFMID$(K$,CT,1)="."THEN1545
  309. 1540 GOTO1560
  310. 1545 CN=CN+1
  311. 1550 IFCT=2THENCN=CN-1
  312. 1555 GOTO1580
  313. 1560 M$=MID$(K$,1,CT-1)+MID$(L$,CN,1)+MID$(K$,CT+1,LM-(CT-1)-1)
  314. 1565 K$=M$
  315. 1570 GOTO1580
  316. 1575 K$=MID$(K$,1,CT-1)+" "+MID$(K$,CT+1,(LM-(CT-1)-1))
  317. 1580 REM PRINT CT;K$
  318. 1585 NEXTCT
  319. 1590 RETURN
  320. 1595 PRINT"[147]";:STOP
  321. 1600 GOTO175
  322. 1605 PRINT"[147]";"ZERO ACCOUNTS":PRINT
  323. 1610 PRINT"[158] 1 [155][146] = ZERO ALL ACCOUNTS"
  324. 1615 PRINT"[158] 2 [155][146] = ZERO EXPENSE AND CARRY BALANCE"
  325. 1625 PRINT"[158]RET[155][146] = MAIN MENU"
  326. 1630 GETA$:IFA$=""THEN1630
  327. 1635 IFA$=CHR$(13)THEN175
  328. 1640 IFVAL(A$)<1ORVAL(A$)>2THEN1630
  329. 1645 ONVAL(A$)GOTO1650,1660,175
  330. 1650 PRINT"[147]":FORN=1TO40:T(N,1)=0:T(N,2)=0:NEXT
  331. 1652 FORN=1TO12:D(N,1)=0:D(N,2)=0:NEXT:GOTO175
  332. 1660 PRINT"[147]":FORN=1TO24:T(N,1)=INT(T(N,1)-T(N,2))
  333. 1665 T(N,2)=0:NEXT:T(25,1)=T(24,1):T(25,2)=0
  334. 1670 FORN=26TO40:T(N,1)=0:T(N,2)=0:NEXT
  335. 1675 GOTO175
  336. 1685 PRINT"[147]LOAD DATA FOR ";:PRINTRIGHT$(D$,4);:PRINT"  Y/N ?"
  337. 1690 GETA$:IFA$=""THEN1690
  338. 1695 IFA$="N"THEN135
  339. 1700 IFA$<>"Y"THEN1690
  340. 1705 GOTO85
  341. 1710 PRINT"[147]SAVE DATA FOR ";:PRINTRIGHT$(D$,4);:PRINT"  Y/N ?"
  342. 1715 GETA$:IFA$=""THEN1715
  343. 1720 IFA$="N"THEN135
  344. 1725 IFA$<>"Y"THEN1715
  345. 1730 GOTO1390
  346. 1735 DATA0000,0000,0000,0000,0000,0000,0000,0000,0000,0000,0000,0000
  347. 1740 DATA0000,0000,0000,0000,0000,0000,0000,0000,0000,0000,0000
  348. 1745 DATAAUTO-GAS/REPAIRS,AUTO-REGISTRATION,CABLEVISION,CLOTHING,ELECTRICITY
  349. 1750 DATAENTERTAINMENT,FOOD EXPENSE,HEAT-OIL,HOUSE REPAIRS,INS-AUTO/HOUSE
  350. 1755 DATAINS-DISABILITY,INS-LIFE,MEDICAL EXPENSE,MORTGAGE EXPENSE
  351. 1760 DATA NOTE EXPENSE,PROPERTY TAXES,SAVINGS ACCT,TELEPHONE
  352. 1765 DATAVACATION,X-MAS SAVINGS,"1","2","3"
  353. 1770 DATAMISCELLANEOUS,DEPOSITS,TRANSFERS,MISC 1,MISC 2,MISC 3
  354. 1775 DATAMISC 4,MISC 5,MISC 6,MISC 7,MISC 8
  355. 1780 DATAMISC 9,MISC 10,MISC 11,MISC 12,MISC 13,MISC 14
  356.